home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / badcodes.zip / POSTCALL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-08-15  |  958b  |  111 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  958 bytes  08/30/122  02:17:04am
  3. '! Code Segment Size  :907 bytes
  4. '! Data Segment Size  :4467 bytes
  5. '! String Segment Size:51 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Declare Function Func176 As Integer
  9.       Declare Function Func421 As Integer
  10.       Declare Function Func664 As Integer
  11.  
  12.       Dim s4463 As String
  13.  
  14.       s4463 = User.Alias
  15.       If InStr(s4463, "@") > 0 Then
  16.         Func176
  17.       End If
  18.    83 s4463 = User.From
  19.       If InStr(s4463, "@") > 0 Then
  20.         Func421
  21.       End If
  22.   125 s4463 = User.ComputerType
  23.       If InStr(s4463, "@") > 0 Then
  24.         Func664
  25.       End If
  26.   167 End 
  27.  
  28. '! Called 1 time
  29.       Function Func176 As Integer
  30.         Dim s65516 As String
  31.         Dim s65520 As String
  32.         Dim s65524 As String
  33.         Dim i65528 As Integer
  34.         Dim s65530 As String
  35.  
  36.         s65516 = User.Alias
  37.         Open ProgPath + "BADCODES.LST" For Input As 1
  38.   225   Do While Not EOF(1)
  39.           Input #1, s65530
  40.           Do
  41.   245       i65528 = 0
  42.             i65528 = InStr(s65516, s65530)
  43.             If i65528 = 0 Then
  44.               User.Alias = s65516
  45.               GoTo 386
  46.             Else
  47.   308         s65524 = Left(s65516, i65528 - 1)
  48.               s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
  49.               s65516 = s65524 + s65520
  50.             End If
  51.   380     Loop
  52.   386   Loop
  53.   392   Close 1
  54.       End Function
  55.  
  56. '! Called 1 time
  57.       Function Func421 As Integer
  58.         Dim s65516 As String
  59.         Dim s65520 As String
  60.         Dim s65524 As String
  61.         Dim i65528 As Integer
  62.         Dim s65530 As String
  63.  
  64.         s65516 = User.From
  65.         Open ProgPath + "BADCODES.LST" For Input As 1
  66.   469   Do While Not EOF(1)
  67.           Input #1, s65530
  68.           Do
  69.   489       i65528 = 0
  70.             i65528 = InStr(s65516, s65530)
  71.             If i65528 = 0 Then
  72.               User.From = s65516
  73.               GoTo 629
  74.             Else
  75.   551         s65524 = Left(s65516, i65528 - 1)
  76.               s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
  77.               s65516 = s65524 + s65520
  78.             End If
  79.   623     Loop
  80.   629   Loop
  81.   635   Close 1
  82.       End Function
  83.  
  84. '! Called 1 time
  85.       Function Func664 As Integer
  86.         Dim s65516 As String
  87.         Dim s65520 As String
  88.         Dim s65524 As String
  89.         Dim i65528 As Integer
  90.         Dim s65530 As String
  91.  
  92.         s65516 = User.ComputerType
  93.         Open ProgPath + "BADCODES.LST" For Input As 1
  94.   712   Do While Not EOF(1)
  95.           Input #1, s65530
  96.           Do
  97.   732       i65528 = 0
  98.             i65528 = InStr(s65516, s65530)
  99.             If i65528 = 0 Then
  100.               User.ComputerType = s65516
  101.               GoTo 872
  102.             Else
  103.   794         s65524 = Left(s65516, i65528 - 1)
  104.               s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
  105.               s65516 = s65524 + s65520
  106.             End If
  107.   866     Loop
  108.   872   Loop
  109.   878   Close 1
  110.       End Function
  111.